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Trotz des wachsenden 


Interesses an LISP gibt | 


es nur wenige preis- 
werte Sprachversionen 
für Microcomputer. Das 


Acornsoft-LISP läuft auf 


dem Acorn B und dem 
Acorn Electron. 

Für das Betriebssy- 
stem CP/M sind meh- 
rere LISP-Versionen er- 
hältlich, darunter Tool- 
works LISP/80, iLISP 
und muLISP-83 - die 
CP/M-Version von Mi- 
crosoft. 

Die mit CP/M arbei- 
tenden Interpreter soll- 
ten auf allen CP/M- 
Micros laufen. Tool- 
works bringt 3600 Li- 
stenzellen und 11000 
Namenszeichen für 
Atome in 48 KByte un- 
ter. Alle Programme 
sind über Gray Matter 
Ltd., 4 Prigg Meadow, 
Ashburton, Devon TQ13 
1DF, Großbritannien, zu 
erhalten. 


Listige Listen 


a Beedle...) 


Mit diesem Artikel beginnt eine Serie 
über LISP, in der wir die Anwendung 
dieser Sprache beschreiben und 
untersuchen, warum sie im Bereich 
der Künstlichen Intelligenz so weit 
verbreitet ist. 


ISP wurde ın den letzten Jahren haupt- 

sächlich durch ıhren Eınsatz ım Bereich 
der KI bekannt. Im Laufe der Zeıt wurde 
dann deutlich, daß LISP sıch als Allzweck- 
sprache für einen breiten Anwendungsbe- 
reich eignet. 

LISP taucht inzwischen ın vıelen sehr un- 
terschiedlichen Bereichen auf. Unter LISP 
entstanden Betniebssysteme, Compiler und 
sogar Äbenteuerspiele. Doch trotz der vıie- 
len LISP-Dialekte, dıe durch die weite Ver- 
breitung der Sprache entstanden, halten 
sıch dıe meısten LISP-Programme (aufgrund 
der einfachen und dırekten Sprachstruktur) 
an eınen Standard und lassen sıch leıcht von 
einer Maschine auf eine andere übertragen. 

Beım Gebrauch von LISP wırd man früher 
oder später bestimmte Funktionen und Be- 
fehle vermissen. Da eın „offizieller“ Stan- 
dard fehlt, haben dıe Programmierer der 
einzelnen Sprachversionen nur dıe Funktio- 
nen eingebaut, dıe ıhnen wichtig erschie- 
nen. Dıe Sprache kann Jedoch leıcht um zu- 
sätzliche Befehle erweitert werden. 

LISP unterscheidet sıch grundlegend von 
bekannteren Sprachen wıe PASCAL, FOR- 
TRAN und BASIC. Durch ıhren sehr eınfa- 
chen und einheitlichen Aufbau eignet sıe 
sıch ıdeal für Datenverarbeitung. 

Dıe Listenstruktur der Sprache läßt sıch 
leıcht an dıe wesentlichen Informations- 
strukturen des Jeweiligen Computers anpas- 
sen. LISP selbst kann dabeı sortieren, su- 
chen, arıthmetische Funktionen und sogar 
Spiele ausführen. Mıt LISP (insbesondere 
mıt dem ın dıeser Serie vorgestellten Acorn- 
soft-LISP für den Acorn B) lassen sıch außer- 
dem dıe speziellen Sound- und Grafikmög- 
lıchkeiten der meısten Mıcrocomputer an- 
sprechen. Unsere Beispiele lassen sıch auf 
andere Sprachversionen übertragen. 

Die Grundlage von LISP ıst dıe Daten- 
struktur der „Liste“. (Der Name LISP ent- 
stammt dem Begniff „lıst processing“ — Li- 
stenverarbeitung.) Listen ahneln ın mancher 
Hinsicht den vertrauten Arrays. Im Gegen- 
satz zu Arrays haben Listen Jedoch keıne 
festgelegte Lange. 

Jede Liste von Elementen kann von Klam- 
mern umschlossen werden: 


wobei a,b, cetc. dıe Bestandteile der Listen 
sınd. Dıe einzelnen Teile werden dabeı 
„Atome" genannt. Sıe können Zahlen, nıcht- 
numerische Daten (Zeıchen oder Vanablen) 
oder auch andere Listen darstellen. Beach- 
ten Sıe, daß Listenelemente nıcht durch 
Kommas, sondern durch Leerzeichen ge- 
trennt werden. 

Dıe Bearbeitung der Listen geschieht mit 
Funktionen, die ähnlıch wıe dıe BASIC- 
Funktion DEF FN Argumente verarbeiten 
und Ergebnisse liefern. Sie werden als 


Ntunc 3»b Cd .2 5 


definiert, wobeı „func“ den Namen der 
Funktion darstellt und a, b, c etc. dıe Ärgu- 
mente. Die Funktion bildet dabeı das erste 
Element der Liste. 

Eıne Liste der ersten sechs Primzahlen 
wird folgendermaßen geschrieben: 


12385771] 

Eine Addition (hıer ın BASIC): 
12er Frl 

arbeitet ın LISP mıt der PLUS-Funktion: 
PL. 238 7) 


und liefert das Ergebnis 29. Da dıe Funktion 
PLUS beliebig viele Argumente enthalten 
kann, ıst auch folgendes möglıch: 


PLUS I 283 PL 55.7 1) 


Hıer wırd zuerst das PLUS mit der höchsten 
Schachtelungstiefe bewertet. Das Ergebnis 
23 wırd dann von dem äußeren PLUS als 
viertes Argument eingesetzt — als Ergebnis 
erscheint 29. Wichtig ıst die Leichtigkeit, mit 
der sıch Funktionen verschachteln lassen. 
Mit der Funktion SETQ ordnen wır das Er- 
gebnis der Vanablen A zu: 


SETO-A PLUS T 2835 771) 


SETQ hat dabeı zweı Argumente — dıe Va- 
nnable A und dıe Funktion, dıe dıe Ganzzahl 
29 ergıbt. SETQ ıst natürlich selbst eine 
Funktion und liefert wıederum eın Ergebnis 
(hıer den Wert 29). Die Zuordnung: 


[EB 2er 


ıst den meisten BASIC-Versionen nıcht mög- 
lıch, laßt sıch ın LISP aber als: 


SENO BASETO A (PEUS1 236571 


schreiben. Durch das Einsetzen der Funk- 
ton TIMES kann der doppelte Wert von A 
der Vanıablen B zugeordnet werden: 


(SET® BITIMESZISETOA (PLUS 2 35 
7 hm 


Dieser Ausdruck bewertet zuerst das PLUS 
und errechnet den Wert 29. Dieser wırd von 
der ınneren SETQ-Funktion der Variablen A 
zugeordnet, dıe das Ergebnis (29) als zweı- 
tes Argument an dıe TIMES-Funktion weı- 
terreicht. Das neue Ergebnis (58) wırd nun 
an dıe außere SETQ-Funktion übergeben, 
dıe dıesen Wert ın dıe Vanable B setzt. Das 
Ergebnis des Ausdrucks ıst also der Wert 
58, der ın weıteren Funktionen verwendet 
werden kann. 


Selbständige Klammerauflösung 


Aufgrund der vıelen Klammern wırd der 
Ausdruck sehr unübersichtlich. In einem 
sorgfaltig aufgebauten Programm erledigt 
sıch dıe Auflösung der Klammern jedoch 
fast von selbst. Einige LISP-Systeme geben 
hıer Hilfestellung, ındem sıe über dıe An- 
zahl der offenen Klammern ınformıeren. Das 
Acornsoft-LISP zeigt beispielsweise am Zeı- 
lenanfang durch Pfeile an, wıe viele Klam- 
mern noch geschlossen werden müssen, 
bevor der Ausdruck vollständig Ist. 

In unserem letzten Beispiel hatte TIMES 
zweı Argumente: dıe Ganzzahl 2 und einen 
Listenausdruck, der zuvor auf das Ergebnis 
29 gesetzt wurde. TIMES kann aber wıe 
PLUS beliebig viele Argumente besitzen. 
Jedes der folgenden Beispiele ıst legal und 
ergibt 1024: 


(TIMES 124816) 

(TIMES 12438 

(TIMES 4 4)) 

(TIMES 1 2 (TIMES 2 2) (TIMES 2 4) 
(PLUS 8 8)) 


In der Praxıs begrenzen dıe meısten LISP- 
Systeme Jedoch dıe Anzahl der Funktions- 
Argumente. Das Acornsoft-LISP unterstützt 
beispielsweise nur 28 Argumente, während 
andere Versionen dıe Anzahl noch mehr 
einschranken. 

Die Beispiele zeigen deutlich, daß LISP- 
Befehle nur aus Argumentenlisten beste- 
hen, ın denen das erste Element dıe auszu- 
führende Funktion angıbt, während die dar- 
auf folgenden Elemente Argumente dieser 
Funktion sınd. Diese Argumente können 
wıederum Listen seın, deren erste Elemente 


ARRAY (mit DIM auf die Länge n gesetzt) 


ıl2jsjalsje]j?r]s]#] | Ir} 


LIST (keine feste Länge) 


> [?1> |31-> EI [s et. 


als Funktionen Ergebnisse liefern. Was ge- 
schieht Jedoch, wenn wır keine Funktion be- 
nötigen, sondern nur eıne Liste mıt Daten- 
elementen, dıe wır als Titel einsetzen wol- 
len? Wır können 


(EOMPUTER KURS LISP SERIE) 


schlecht als Liste mıt vier Datenelementen 
anlegen, da LISP versuchen würde, COM- 
PUTER als Funktionsname zu bewerten und 
dıe Argumente (KURS, LISP und SERIE) als 
dreı Vanıablennamen ansıeht. Wır können 
LISP jedoch durch eın voranstehendes (') 
mitteilen, daß der Ausdruck nıcht bewertet 
werden soll: 


COMPUTER KURS LISP SERIE) 


laßt sıch dann wıederum als Liste mit vier 
nıcht-numerischen Elementen der Vanablen 
MAG zuordnen: 


(SEIO MAG '(COMPUTER KURS LISP 
SERIEN} 


Beachten Sıe, daß es ın LISP keine unter 
schiedlichen Vanablentypen gibt. Die fol- 
genden Ausdrücke sınd ın LISP daher alle 
völlıg legal: 


(SETOA 3) A = dıe Ganzzahl 3 

(SETOA 'COM- A = der String 'COM 
PUITER) PUTER’ 

(SETOA A = das Ergebnis von 
PLUS24 8) 24448 


(SETOA (1248) A=dıieLiıste (1248) 


(SETOA '(COM- A= dıe LISTE (COM 
PUTER KURS)) PUTER KURS) 
(SETOAB) A = der Wert der 
Varıablen B 


Es gıbt nur wenige LISP-Versionen, die mit 
Fhheßkommaanrıthmetik arbeıten. In den meı- 
sten Fallen reichen dıe Ganzzahlen aus, wo- 
beı sıch Fließkommaberechnungen ohne 
größere Schwiergkeiten durch normale 
Ganzzahlen sımulıeren lassen. 

In der nächsten Folge werden wır sehen, 
wıe LISP-Funktionen dıe Datenargumente 
bearbeiten und wie flexıbel dıe Sprache beı 
Recursionen ıst. 


Listen haben Arrays 
gegenüber zwei große 
Vorteile. Zunächst muß 
vor ihrem Einsatz kein 
Speicherplatz für sie re- 
serviert werden. Da sie 
dynamische Strukturen 
sind (das heißt keine 
feste Länge haben), 
können sie sich wäh- 
rend der Programmaus- 
führung an die Menge 
der Daten anpassen. Li- 
sten lassen sich außer- 
dem bei der Program- 
mierung Künstlicher 
Intelligenz für recur- 
sive Prozeduren 
einsetzen. 
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Funktionelles 
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Wir zeigen, wie sich innerhalb von 
Listen andere Listen anlegen lassen, 
und definieren eigene Funktionen. 


n der ersten Folge hatten wır untersucht, 

wie LISP veranlaßt wırd, eıne Liste als 
Datenliste und nıcht als Funktion anzuse- 
hen. So ordnet 

BEIOX 'ABEDER) 


der Vanablen X dieListe (ABCDEF) zu, 
wobei Jedes Listenelement eın String mit 
einem eınzıgen Zeichen ıst. Was aber pas- 
siert, wenn D, E und F Strings mit eınzel- 
nen Zeichen wären, A, Bund C aber Vana- 
blen mıt den Werten 2, 4 und 8°? Für diesen 
Fall müssen wir X dıe Liste (24 8DEF) 
zuordnen. Dies geschieht mıt der neuen 
Funktion LIST, dıe eine Liste ıhrer Ärgu- 
mente aufbaut. 
(SEIO x ILS A BIT D’ER)) 


bringt das gleiche Ergebnis wıe das vo- 
rıge Beispiel, während: 
SEROX "LUST ABC DD ERA) 


dıe Liste (24 8DEF) zuordnet. Durch das 
Fehlen der Anführungsstriche werden A, 
B und C bewertet. Ebenso weiıst 

ISERO X 1EIST 1 24 "IPLUS 4 9) 


der Vanıablen X dıe Liste (124 (PLUS 4 4) 
zu, wobeı das vıerte Listenelement selbst 
wiederum eıne Liste mit den dreı Elemen- 
ten PLUS, 4 und 4 ıst. PLUS wurde nıcht 
bewertet, da eın Änführungszeichen vor 
dem Ausdruck steht. 

SETO X (AST 1 2 AIIPLUSA A) 


ordnet X jedoch die Liste (1 2 4 8) zu, da 
PLUS bewertet wurde. Eın einziges Änfüh- 
rungszeichen erzeugt diesen Unterschied. 
Mıt dem Konzept laßt sıch auch eıne Liste 
von Listen aufbauen: 
(SETO PERSON '((KLAUS BLOCK) (171 
1960))) 


ordnet der Variablen PERSON eıne Daten- 
lıste zu, deren zweı Elemente wiederum 
Listen sınd. Die erste Liste enthält zweı 
Elemente, dıe aus Zeichen bestehen, und 
dıe zweite Liste dreı numensche Ele- 
mente. Innerhalb der Liste lassen sıch 
weitere Listen anlegen. 

Bisher haben wır uns dıe Funktionen 
SETO, LIST, PLUS und TIMES angesehen. 
LISP verfügt Jedoch noch über vıele weiı- 


tere Funktionen, deren Eınsatz von der 
Anwendung abhängt. 

Bevor wır uns ansehen, wıe Funktionen 
angelegt werden, untersuchen wır zu- 
nächst drei Grundfunktionen, die ın allen 
LISP-Versionen zu finden sınd: CAR, CDR 
und CONS. Der Name CONS steht für das 
Wort CONStruct, während CAR und CDR 
aus einer der ersten Änwendungen stam- 
men und Abkürzungen für „Contents of 
Address Regıster“ und „Contents of De- 
crement Register" sınd. 


CAR und CDR 


CAR und CDR müssen ın Jedem Fall eın 
einziges Argument haben, das eıne Liste 
mit mindestens einem Element seın muß. 
Ausgeschlossen ıst dıe „leere Liste“ oder 
NIL, dıe 

() 


geschnieben wird. Die Funktion CAR lıe- 
fert als Ergebnis das erste Element des Lı- 
stenargumentis. 

(CAR "I 23:4 5) 


hat daher als Ergebnis dıe ganze Zahl |. 
Das Ergebnis kann aber auch eıne Liste 
sein. Indem Ausdruck 

(CAR ((1 2) (3 4) 9) 


ist das erste Element dıe Liste (1 2). 
Dıe Funktion CDR lıefert alle Elemente 
einer Liste außer dem ersten. So ergibt 
(EBR 112345) 


dıe Liste (2345) und 
(CDR '((1 2) (3 4) 5)) 


dıe Liste ((3 4) 5). 

Die Funktion CONS fügt das erste Argu- 
mentan das zweıte an. 

ICONS 1 2 Te 233 


ergıbt daher die Liste ((1 2) (34) 5). 
Die Funktionen CAR und CDR werden 
oft ineinander verschachtelt. So ergibt 
(CDR I 238349) 


dıe Liste ((34) 5) und 
(CAR (CDR '((1 2) (3 4) 5))) 


(34) — eigentlich (CAR '((3 4) 5)) —, wah- 
rend 
CAR [CAR (CDR 707 2) 8A 5) 


den Wert 3 lhefert — (CAR ‘(3 4)). 


Da dıese Verschachtelungen recht lä- 
stig werden können, erlaubt LISP Abkür- 
zungen. Die Funktionsnamen fangen da- 
beı zwar ımmer noch mıt C an und enden 
mit R, können dazwischen aber Jede be- 
lıebige Anzahl As (für CAR) oder Ds (für 
CDR) enthalten. Das Acornsoft-LISP laßt 
Jedoch nur bıs zu dreı Einfügungen zu. 
Der letzte Ausdruck ließe sıch nun auch 

(CAAR (CDR '((1 2) (3 4) 5))) 


schreiben oder 
(CAR (CADR '((1 2) (3 4A) 5))) 


oder auch 
(CAADR '((1 2) (3 4) 5)) 
Alle Versionen liefern das Ergebnis 3. 
Funktionen werden mit der Funktion 
DEFUN definiert, dıe drei Argumente 
braucht und folgendes Format hat: 
(DEFUN a (b) (c)) 


Dabe:ı ıst a der Name der Funktion, b dıe 
Parameterliste (ähnlıch wıe in PASCAL 
oder Acorn-B-BASIC) und c eine Listen- 
struktur mit dem Hauptteil der Funktion. 
Wenn wır beispielsweise oft mit 8 multipli- 
zieren müssen, könnten wir natürlich je- 
desmal schreiben: 
(TIMES 8 N) 


wobei N dıe zu multiplizierende Zahl dar- 
stell. Eine selbstdefinierte Funktion 
könnte Jedoch die gleiche Aufgabe aus- 
führen: 

(DEFUN TIMES (N) (TIMES 8 N)) 


Die Funktion TIME3 nimmt N als Argu- 
ment, multipliziert dıese Zahl über die 
Standardfunktion mit 8 und liefert das Er- 
gebnis. 

(TIME8 11) 


ergibt 88. 

Bevor wır weitere Funktionen definie- 
ren, wollen wir Jedoch erst einmal ein 
wichtiges Programmierkonzept untersu- 
chen: dıe Bedingung (COND). Sıe ist etwa 
so wichtig wıe der IF.. .THEN-Befehl ın 
BASIC. 

Auch Bedingungen haben ın LISP dıe 
Form von Funktionen: 

(COND (Bedingung! Ausdruck 1) 

(Bedingung2 Ausdruck?) 


(BedingungX AusdruckX)) 


Beachten Sıe, daß dıese Funktion sıch 
über mehrere Zeilen erstrecken muß, um 
überhaupt ausreichend Platz zu haben. 
Diese Anordnung wird ın LISP oft eınge- 
setzt, da die Sprache an der letzten Klam- 
mer erkennt, wo das Ende des Ausdrucks 
legt. 


(DEFUN EQUAL (A B) (COND 
((EQAB)T) 
((OR (ATOM A) (ATOM B)) NIL) 


((EQUAL (CAR A) (CAR B)) (EQUAL (CDR A) (CDR B))) (T NIL))) 


(DEFUN FIND_AUTO (X L) (COND 
((NULL L) "(KEINE AUTONUMMER)) 
(EQUAL X (CDAR L)) (CAR L)) 

(T (FIND_AUTO X (CDR L))))) 


(SETQ AUTOS '((SCHMITT HHCS1254) (MEIER PIOS2354) 
(SCHANZE BIDD1984) (STEIN BTT336)) 


(PRINTC (FIND__AUTO ’(BIDD1984) AUTOS)) 


Ed ee 


Die COND-Funktion ähnelt dem CASE- 
Befehl von PASCAL. Dabeı wırd Bedın- 
gungl| bewertet. Ist sıe wahr, dann liefert 
Ausdruck| das Ergebnis. Ist sıe falsch, 
wird Bedıngung2 getestet etc. Einige 
LISP-Versionen (auch Acornsoft-LISP) ver- 
langen, daß zumindest eine der Bedingun- 
gen („Äussagen" genannt) wahr ıst. Dies 
laßt sıch Jedoch leıcht durch das Hınzufü- 
gen einer Endbedingung erreichen: 

(COND (Bedingung! Ausdruck 1) 

(Bedingung? Ausdruck?) 


(COND (T Letzter Ausdruck)) 
Das Zeichen T stellt hier „True“ (wahr) 
dar. Der letzte Ausdruck (falls er erreicht 
wird) ıstimmer bewertbar. In LISP ıst: 

T = True = Nicht Null 


und 
F= False = Null = |) 


Dıe Klammern stellen die leere Liste dar. 
Wır können nun schon komplıziertere 
Funktionen defınieren. 

Fast alle BASIC-Dialekte kennen die 
Funktion ABS, dıe als Ergebnis den positi- 
ven Wert ıhres Arguments liefert. Das 
heißt: ein positives Argument bleibt unver- 
andert, ein negatives wırd umgekehrt. In 
LISP hat dıese Funktion folgendes Format: 

(DEFUN ABS (X) 

(Funktionsinhalt)) 
wobeı X eın ganzzahlıges Argument ıst. 
Mit der Bedingungsfunktion COND sieht 
dıe vollständige ABS-Funktion folgender- 
maßen aus: 


(DEFUN ABS (X) 
(COND ( (MINUSP X) (MINUS X)) 
(T X)) 


Dıe Definition enthält zweı neue Funktio- 
nen. Die Testfunktion MINUSP |ıefert 
einen Wert, wenn das Argument eine ne- 
gatıve Zahl ıst. Bei einer positiven Zahl ıst 
das Ergebnis „False“. Ist die Bedingung 
wahr, negıiert dıe Funktion MINUS ıhr Ar- 
gument, wenn nicht, liefert T (die ımmer 
wahr ıst) den ursprünglichen Wert. 


Dieses einfache Pro- 
gramm zum Auffinden 
von Daten zeigt den 
Einsatz der Funktionen 
CDR und EQ. Dabei lie- 
fert eine vom Änwen- 
der eingegebene AÄuto- 
nummer - falls in der 
Datenbank des Pro- 
gramms vorhanden - 
diese Nummer und den 
Nachnamen des 


Besitzers. 


Testfunktionen 

Die folgende Liste zeigt 
Testfunktionen, die in 
LISP oft eingesetzt 


werden: 
(OR Arg! 
Arg2...) 


(ONEP Arg) 
(ZEROP Arg) 
(LISTP Aıgl 


(ATOM Arg) 


(LESSP Arg] 


Arg2) 
(GREATERP 
Arg1 Arg2) 
(EO Arg! 
Arg2) 


Liefert „True‘, 
wenn mindestens 
eins der Argu- 
mente wahr ist 
Liefert „True“, falls 
Arg = ] 

Liefert „True“, falls 
Arg — 0 

Liefert „True“, falls 
Arg eıne Liste ist, 
und „false“, wenn 
es ein Atom ist 
Liefert „True“, falls 
Arg eın Atom ıst, 
und „False“, wenn 
es eine Liste ist 
Liefert „True“, 
wenn Argl < Arg2 
Liefert „True“, falls 
Argl > Arg2 
Liefert „Tme“, falls 
Argl — Arg2 
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Königliches Spiel 


In der letzten Folge unserer LISP-Serie beschäftigen wir uns mit 
weiteren Standardfunktionen der Sprache und führen sie am Beispiel 
von zwei komplexen Problemen vor. Zunächst untersuchen wir jedoch, 


wie LISP Datenstrukturen darstellt. 


ISP verwendet „Pointer“ (Zeiger) und be- 

zieht sich so mit eıner einheitlichen 
Schreibweise auf Namen, Zeichen, Zahlen und 
Listen. Pointer lassen sıch ın Jeder Sprache — 
auch ın BASIC — leıcht sımulieren. 


POKE 100,55 : POKE 99,100 (fast alle Miıcros) 
oder 
?100 = 55 : ?99 = 100 (Acorn B/Electron) 


halten ın den Speicherstellen 100 und 99 dıe 
angegebenen Werte. Der Wert ın Adresse 99 
laßt sıch als Pointer auf Speicherstelle 100 ver- 
stehen. Beı dem Befehl 


PRINT PEEK(PEEK(99)) 
oder 
PRINT ?(?99) 


erhalten wır dıe Antwort 55. Beachten Sıe, daß 
sich die Speicherstellen 99 und 100 auf einigen 
Mıicros ım ROM befinden und sıch daher nıcht 
andern. 

Natürlıch können Pointer auf Jeden Speı; 
cherbereich zeigen. Über 255 liegende Adres- 
sen brauchen Jedoch zweı Bytes, um den Be- 
reıch zwischen O0 und 65535 umfassen zu kön- 
nen. Wenn wir den Wert 55 als Pointer auf eine 
weitere Speicherstelle ansehen und so weiter, 
erhalten wır folgende Listenstruktur: 


Bezug auf den Anfang der Liste 


ar 


Eo 
| 


Il 
ir pr Ay ku 
Ba. 
f 9 ai 
Listenkopf Listenende 


Diese Liste enthält noch keıne Informationen. 
Wenn man Jedoch zweı Adressen zusammen- 
fügt, entstehen an Jedem Knotenpunkt zweı 
Pointer: 


IN a 


Dieses Verfahren laßt sıch nun ın eın Listenfor- 
mat umsetzen: 
BRBCDE.. 3 


Eu w . - a 2 
n B m DD E 


Nun fehlt nur noch eın Element, das das Listen- 
ende anzeıgt. Dafür wırd der letzte Pointer auf 
die leere Liste (oder NIL) gesetzt. Hıer dıe 
Liste mit fester Lange: 


ABC 

“_ EIER \ 
ae; H+p le! 
x . > N 7 

n B c D 


Bei eıner Liste ım Innern eıner anderen Liste 
zeigt nur einer der Iınken Pointer auf dıe 
zweite Liste statt auf ein Atom. 

(ABCDER 
wırd daher folgendermaßen dargestellt: 


ne’ ne’ nei ner. 
vs v Y 


- ER 
IHIIHEDH m 
wy 4 w 


In | R c 


An dieser Stelle wırd auch deutlich, wıe dıe 
Funktionen CAR und CDR arbeıten. CAR (der 
Kopf des Argumentes) ıst der Iınksstehende 
Pointer des ersten Ärgumentelements, wah- 
rend CDR (alle Elemente außer dem Kopf) der 
rechtsstehende Pointer des ersten Elements 
ıst. Der Aufruf 

CONS((CAR L) (CDR L)) 
lıefert daher dıe ganze Liste. 

Mit CONS lassen sıch Listen anlegen. Die 
Funktion baut aus seinen beiden Ärgumenten 
eine weitere Liste auf und liefert als Ergebnis 
einen Pointer auf das erste Element der neuen 
Liste. CONS kann Jede Art von Liste aufbauen. 
Wenn dıe Zahl der CONS-Aufrufe zu groß wird, 
kann dıe Kurzfunktion LIST verwandt werden. 
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Neue Informationen sollten immer mit CONS 
an den Kopf eıner Liste angefügt werden, da 
beım Anfügen an das Listenende zuerst die ur- 
sprüngliche Liste kopiert werden muß, damit 
der Endpoınter auf das neue Element zeigt. 

Eınıge LISP-Versionen führen dıese Aufgabe 
mit APPEND automatısch aus. Diese Funktion 
ıst Jedoch nıcht so schnell wıe CONS. Aus Ge- 
schwindigkeitsgründen wırd manchmal nur 
der Pointer der ursprünglichen Liste umgesetzt 
und keine Kopie angelegt. 

Zum Abschluß dieser Serie stellen wır dıe 
Lösung für eın bekanntes Problem vor: Auf 
einem Schachbrett sollen acht Könıgınnen auf- 
gestellt werden, ohne sich gegenseitig zu be- 
drohen. Offensichtlich muß ın Jeder Reihe und 
Spalte genau eıne Königın stehen. Die Schwie- 
rigkeit liegt darın, dıe Reihen und Spalten so 
anzuordnen, daß sıch dıe Reichweiten der FI- 
guren ın der Diagonale nıcht überschneiden. 

jede Spalte des Schachbretts enthält eine 
Könıgın, dıe gemäß ıhrem Platz von 1 bıs 8 ın 
einer Liste namens KOENIGINNEN gespeı- 
chert sınd. Die Spalte Jeder Könıgın (der Wert 
von KOENIGINNEN) ıst eine Varıable und wırd 
von LISP berechnet. 


KOENIGINNEN (K] Ka K3 K4 K5 K6 K7 K8) 


Beım Programmanfang ıst dıe Liste KOENIGIN- 
NEN noch leer. Beı Jedem Schnitt wird eıne 
neue Könıgın ın Reihe | am Anfang der Liste 
eingesetzt. Die Posıtion dieser Köniıgın (und 
möglıcherweise auch dıe der anderen) wird 
mit der Funktion AENDERN so lange verän- 
dert, bıs alle Königinnen auf sıcheren Positio- 
nen stehen. Die neue Liste wırd dann wie- 
derum zu KOENIGINNEN, an deren Anfang 
eıne weitere Königin angefügt wird, und so 
weiter. 

Dieser Vorgang setzt sıch fort, bıs dıe Liste 
acht Königinnen enthält. An dıesem Punkt wırd 
das Ergebnis mıt PR SCHACHBRETT gedruckt. 
Die Anfangsfunktion nennen wır LOESUNG. 
sie sıeht folgendermaßen aus: 

(DEFUN LOESUNG |) 

(SETO KOENIGINNEN ()) 

(LOOP (UNTIL EQ (LAENGE (KOENI- 

GINNEN) 8)) (SETQ KOENIGINNEN (ALTER 
(CONS 1 KOENIGINNEN)))) 
(PR_SCHACHBRETT ' (LTLSLLLKRKRL 
RS RT) KOENIGINNEN)) 
Hier ıst leicht zu erkennen, wie LOESUNG an- 


fangs dıe leere Liste KOENIGINNEN anlegt. 
Die Funktion LOOP setzt KOENIGINNEN auf 
den neuen Wert der mit AENDERN aktualısier- 
ten Liste. Dabeı steht eine Königın ın Reihe | 
gefolgt von der zuvor angelegten Liste. Die 
Schleife LOOP wırd so lange ausgeführt, bis 
(UNTIL) dıe LAENGE von KOENIGINNEN dem 
Wert 8 gleicht (EO). Danach wırd die fertige 
Liste gedruckt. 

Das Programm enthält drei neue Funktionen. 
LAENGE lıefert dıe Anzahl der Elemente eınes 
Arguments und ıst folgendermaßen definiert: 

(DEFUN LAENGE (L (N)) 

(SETONO) 

(LOOP (WHILE L N) 

(SETO N (ADD1 N)) 

SEIOL4CDR D) 
Mıt dem ın Klammern gestellten Argument N 
stellt Acornsoft-LISP möglıche Argumente dar. 
In unserem Fall wırd N nıcht an die Funktion 
übergeben - es ıst nur eine lokale Varıable. 

Dıe Funktion PR _SCHACHBRETT kombiniert 
beide Argumentenlisten zu einem Ausdruck: 

(DEFUN PR_SCHACHBRETT (ZEILEN 

SPALTEN) (COND ((NULL ZEILEN) T) 

(T (PRINTC (CAR ZEILEN) (CAR SPALTEN)) 

(PR_SCHACHBRETT (CDR ZEILEN) (CDR 

SPALTEN)) ))) 

Da beide Listen dıe gleiche Größe haben, wırd 
dıe Funktion beendet, wenn die erste Bedin- 
gung eintntt (eine Liste ıst leer). Falls nıcht, 
wırd das erste Element Jeder Liste gedruckt 
(mit Return), während sıch dıe Funktion für 
den Rest der Liste immer wieder selbst aufruft. 

Die dritte Funktion AENDERN schließlich er- 
ledıgt dıe Hauptarbeit: 

(DEFUN AENDERN (KOENIGINNEN) 

(COND ((EQ (CAR KOENIGINNEN) 9) 
(AENDERN (CONS (ADD1 
(CADR KOENIGINNEN)) 
(CDDR KOENIGINNEN) ))) 
((SICHER KOENIGINNEN) KOENI- 
GINNEN) 
(T (AENDERN (CONS (ADD1 
(CAR KOENIGINNEN)) 
(CDR KOENIGINNEN) ))))) 
AENDERN überprüft, ob dıe zuletzt eingesetzte 
Königın vom Spielbrett „gefallen“ ıst (Zeile 9). 
Ist dies der Fall, müssen die Positionen der an- 
deren Königinnen verändert werden. 

Da dıe „gefallene“ Könıgın alle Zeilen von | 
bıs 8 überprüft hat (dıe dritte Bedingung von 
AENDERN), gıbt es keine Möglıchkeit, sie beı 
den augenblicklichen Positionen der anderen 
Königinnen auf dem Brett aufzustellen. AEN- 
DERN ruft sıch daher für den Rest der Liste 
(alle Königinnen außer der ersten) selbst auf. 

Dabeı ınkrementiert die Funktion die Zeile 
der letzten Königın. Dieser Vorgang wird 
„Backtrackıng" genannt. Er ıst beı dieser Art 
von Computeralgoritnmen weit verbreitet. Ist 
dıe zweite Bedingung TRUE, dann stehen alle 
Königinnen auf sıcheren Positionen und die 
Liste kann zurückgegeben werden. Ist dıes 


nıcht der Fall, wırd die Position der zuletzt ein- 
gesetzten Königın ınkrementiert und eın weıte- 
rer Versuch unternommen. 

Nun fehlt nur noch die Funktion SICHER, dıe 
überprüft, ob alle Königinnen auf unangreif- 
baren Positionen stehen. Da ın der Liste KOE- 
NIGINNEN die Spalten bereits festgelegt sınd 
und zweı Königinnen nıe dıe gleiche Position 
einnehmen können, brauchen nur die Zeilen 
und Diagonalen überprüft zu werden. Die 
Funktion KEINGARDEZ ergibt TRUE, wenn 
keine Könıgın eine andere bedroht. SICHER 
wırd folgendermaßen definiert: 

(DEFUN SICHER (KOENIGINNEN) 

(COND ((NULL KOENIGINNEN) T) 
(1 (AND (KEINGARDEZ 
(CAR KOENIGINNEN) 
(CDR KOENIGINNEN) 1) 
(SICHER (CDR KOENIGINNEN)) )))) 
Dieser Ablauf läßt sıch ın normalen Worten 
leichter verstehen: 

„Die erste Könıgın der Liste KOENIGINNEN 
bedroht keıne andere Köniıgın der Liste UND 
alle anderen Königinnen der restlichen Liste 
sınd sıcher." 

Nun muß nur noch dıe Funktion KEINGAR- 
DEZ definiert werden. Sıe soll TRUE ergeben, 
wenn esın den Zeilen und Spalten keıne Kreu- 
zungspunkte gibt: 

(DEFUN KEINGARDEZ (NEW REST SPALTE) 

(COND ((NULL REST) T) 
(T (AND (NOT (EQ NEW (CAR REST))) 
(NOT (EQ SPALTE (ABS (DIFFERENCE 


Wahrhaft königlich 
Das „Problem der 
acht Königinnen“ lie- 
fert ein perfektes Bei- 
spiel für Rätsel, die 
sich mit den Listen 
und recursiven Funk- 
tionen von LISP 
schnell lösen lassen. 
Probieren Sie es 
selbst einmal, bevor 
Sie sich die nebenste- 
hende Lösung anse- 
hen. Setzen Sie acht 
Königinnen derart auf 
ein Schachbrett, daß 
sie sich nicht gegen- 
seitig bedrohen. Sie 
brauchen Schach nicht 
zu kennen, sondem 
müssen nur wissen, 
daß Königinnen sich 
in gerader Linie belie- 
big weit diagonal, ver- 
tikal und horizontal 
bewegen können und 
dabei jede im Weg 
liegenden Figur 
schlagen. 


NEW (CAR REST))))) 
(KEINGARDEZ NEW (CDR REST) 
(ADD1 SPALTE)) )))) 

Hier ıst NEW die zuletzt eingesetzte KönigıIn 
und REST dıe Liste aller anderen Königinnen 
des Brettes. Angenommen, andere Königinnen 
sınd auf dem Brett vorhanden (NULL REST ıst 
FALSE), so ergibt dıe AND-Funktion TRUE, 
wenn: 
l) die augenblickliche Zeile der Königin nicht 
dıe gleiche ıst wıe die Zeile der ersten Königin 
der restlichen Liste; 
2) die Königinnen nicht auf der gleichen Diıa- 
gonalen liegen. Bei der Überprüfung wird si- 
chergestellt, daß dıe absolute Zeilendifferenz 
nicht dıe gleiche ıst wıe die Spaltendifferenz. 
SPALTE enthält dabeı die Zahl der Spalten, dıe 
zwischen der augenblicklichen Konigın und 
der nächsten Königın der Liste lıegen (anfangs 
l). ABS wurde schon ın eıner früheren Folge 
definiert: 

(DEFUN ABS (ZAHL) 

(COND ((MINUSP ZAHL) (MINUS ZAHL)) 
(T ZAHL) )) 

3) Punkt 1 und 2 für dıe augenblickliche Kö- 
nıgın und auch die nächste Königın der Liste 
zutreffen. Dies wırd überpruft, indem dıe Funk- 
tıon sıch selbst aufruft, dabei aber nur die rest- 
lıchen Königinnen mit Ausnahme des ersten 
Elements anspricht und dıe Spaltendifferenz 
ıinkrementiert. 

Jetzt sınd alle Definitionen vorhanden. Das 
Bild zeıgt dıe Losung. 
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